home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / biz / misc / Brokerrexx.lha / MAKEDATAFILE.rx < prev    next >
Text File  |  1997-10-31  |  2KB  |  79 lines
  1. /* Arrexx script to get current stock values for various companies */
  2. OPTIONS RESULTS
  3.  
  4. outname = "Ram:DATA.txt"
  5. x =  open("outfile", outname, "W")
  6. STOCKDATE = " "||DATE(usa)
  7.  
  8.  
  9. IF ~OPEN("DATAFILE", "REXXSCRIPTS:STOCKLIST.RXDATA", "READ") THEN DO
  10.     SAY "DATA FILE MISSING!"
  11.     EXIT
  12.     END
  13. DO UNTIL EOF("DATAFILE")
  14.     LINE = READLN("DATAFILE")
  15.     EPIC = WORD(LINE,1)
  16.     NAME = WORD(LINE,2)
  17.         PASS = EPIC||" "||NAME
  18.         CALL ADDDATA(PASS)
  19.  
  20. END
  21. CLOSE("DATAFILE")
  22. CLOSE("OUTFILE")
  23. EXIT
  24.  
  25.  
  26.  
  27. ADDdata:
  28. PASS = ARG(1)
  29. Stock = WORD(PASS,1)
  30. NAME = WORD(PASS,2)
  31.  
  32.  
  33. file = "Ram:"||Stock
  34.  
  35.  
  36. IF ~OPEN("infile",file, "R") THEN DO
  37.     SAY file " NOT FOUND!"
  38.     EXIT
  39.         END
  40. instr = READLN("infile")
  41. instr = READLN("infile")
  42. instr = READLN("infile")
  43. instr = READLN("infile")
  44. instr = READLN("infile")
  45. instr = READLN("infile")
  46. instr = READLN("infile")
  47. instr = READLN("infile")
  48. instr = READLN("infile")
  49. instr = READLN("infile")
  50. instr = READLN("infile")
  51. PARSE VAR instr a "<h1>" Name2 "at" timenow "on" date
  52. instr = READLN("infile")
  53. instr = READLN("infile")
  54. instr = READLN("infile")
  55. instr = Right(instr,(Length(instr)-30))
  56. PARSE VAR instr  mid "</font><td>" Prev "<td>" remain
  57. PARSE VAR remain High "<td>" Low "<td>" rem
  58. Parse VAR rem  Open "<td>" Bid "<td>" remain
  59. PARSE VAR remain  Offer "<td>" Volume "<td>" a
  60. CLOSE("infile")
  61.  
  62. /* check that volume is present or set to zero */
  63. IF LEFT(Volume,3)="<im" THEN DO
  64.     Volume = 0
  65.     END
  66. first = "$Name "||NAME
  67. second = "$FORMAT   DATE_USA  VOLUME  HIGH  LOW  CLOSE  OPEN"
  68. third = STOCKDATE ||"   "|| Volume "  "  High "  " Low "  " MID "  "  Open
  69. say NAME  STOCKDATE
  70. a = " * "
  71. SAY Volume a High a Low a Prev a Open a Bid a Offer a
  72. x = WRITELN("outfile", first)
  73. x = WRITELN("outfile", second)
  74. x = WRITELN("outfile", third)
  75. RETURN
  76.  
  77.  
  78.  
  79.